20 POKE53280,14:POKE53281,6
25 POKE53272,23:PRINTCHR$(8)
140 REM
150 REM
160 PRINT"[147][208]RO [210]EGISTER 64 ([214]1.2)
161 [153]"CHR$ERMAN VERSION"
162 [153]"LENOPYRIGHT (null).ASC.LEFT$. 1990"
163 [153]"(ATN)=ATNNLEITUNGN"
164 [153]"(ASC)=ASCORTFAHREN"
225 [143]
230 [161]Q$:[139]Q$[178]""[167]230
240 [139]Q$[178]"A"[167][137]600
250 [139]Q$[178]"F"[167][137]1000
260 [137]230
600 [143]
610 [153]"LOADATNNLEITUNG:"
612 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
613 [153]"STR$IESES (null)ROGRAM IST SEHR EINFACH ZU BE-"
614 [153]"DIENEN, LEDIGLICH FOLGENDES SOLLTEN (null)IE"
615 [153]"BEACHTEN:"
616 [153]"1:(null)M EINE GEWAEHLTE (null)PTION ZU BEENDEN,"
617 [153]"  SCHREIBEN (null)IE 'SCHLUSS' ODER 'S'."
619 [153]"2:(null)UR DER ERSTE PEEKUCHSTABE IST NOTWENDIG,"
620 [153]"  WENN (null)IE EINEN (null)OSTEN KORRIGIEREN"
621 [153]"  WOLLEN."
660 [153]"3:PEEKEI DER '>'-(null)ARKE IST EIN (null)OSTEN ZU"
670 [153]"  SCHREIBEN UND DIE ':'-(null)ARKE ZEIGT DEN"
680 [153]"  GESCHRIEBENEN (null)OSTEN AN."
690 [153]"4:(null)IE KONNEN MIT MEHR ALS 1000 (null)OSTEN"
691 [153]"  GLEICHZEITIG ARBEITEN."
695 [153]"   - (ASC)ORTFAHREN ODER (ATN)NLEITUNG -"
700 [156]:[137]230
1000 QW[178] 1 :MX[178] 1185
1003 [131]NAME,TEL
1006 [134]A$( 1,MX),A%(MX)
1009 [159]4,3:[159]7,0:[129]I[178]0[164]QW:[135]A$(I,0):[130]
1012 [141]1390
1015 [151]53272,23
1018 [153]"LOAD(null)RO (null)EGISTER 64 (null)AM="ME"(null)ECHNER="AN
1021 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
1024 [153]"ONCONT 1=(null)OSTEN SCHAFFEN 2=(null)OSTEN KORRIGIEREN"
1027 [153]" 3=(null)OSTEN LOESCH.  4=(null).(null)ORTIEREN"
1030 [153]" 5=(null)OSTEN ANSEHEN  6=(null)OSTEN LADEN"
1033 [153]" 7=(null)OSTEN SPEICH.  8=(null)RG. BEENDEN"
1036 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
1039 [141]1285:RU[178][197](A$)
1042 [139]RU[178]8[167][153]"ON(null)ROGRAM BEENDEN":[141]1354:[139]A$[178]"J"[167][158]64738
1045 [139]RU[179]1[176]RU[177]8[137]1039
1048 X0[178]0:[145]RU[141]1054,1075,1093,1117,1156,1219,1252
1051 [137]1012
1054 J[178]AN:[137]1066
1057 [139]A%(J)[178]0[167]A%(J)[178]J
1060 [141]1375:[139]X0[137]1072
1063 [141]1291:[139]A$[178]"N"[167]1060
1066 J[178]J[170]1:[139]J[179][178]MX[137]1057
1069 [141]1360
1072 AN[178]J[171]1:[142]
1075 [153]"(null)OSTEN KORRIGIEREN"
1078 [139]AN[178]0[167][141]1327:[142]
1081 [141]1363:[139][168]OK[137]1081
1084 [139]X0[167][142]
1087 [141]1291:[139]A$[178]"J"[137]1075
1090 [141]1375:[137]1087
1093 [153]"(null)OSTEN LOESCHEN"
1096 [139]AN[178]0[167][141]1327:[142]
1099 [141]1363:[139][168]OK[137]1099
1102 [139]X0[167][142]
1105 [141]1291:[139]A$[178]"N"[137]1093
1108 [153]">CHR$ELOESCHT!":AN[178]AN[171]1
1111 A[178]A%(J):[129]K[178]J[164]AN:A%(K)[178]A%(K[170]1):[130]:A%(K)[178]A
1114 [137]1093
1117 [153]"ON(null)OSTEN SORTIEREN"
1120 [139]AN[178]0[167][141]1327:[142]
1123 [129]I[178]0[164]QW:[153]I;"CMD)CLOSECLOSE"A$(I,0):[130]
1126 [153]"PEEKASIEREND AUF:0CMD";:[132]7,A$:[153]
1129 K[178][197](A$)
1132 [139]K[179]0[176]K[177]QW[167][153]"ONONONON":[137]1126
1135 G[178]AN
1138 [139]G[179][178]1[167][142]
1141 G[178][181](G[173]2):M[178]AN[171]G
1144 F[178]0:[129]J[178]1[164]M:P[178]J[170]G:[139]A$(K,A%(J))[179][178]A$(K,A%(P))[137]1150
1147 A[178]A%(J):A%(J)[178]A%(P):A%(P)[178]A:F[178]1
1150 [130]:[139]F[177]0[137]1144
1153 [137]1138
1156 [153]"ON(null)OSTEN ANSEHEN"
1159 [139]AN[178]0[167][141]1327:[142]
1162 [141]1294
1165 [139]A$[179][177]"J"[167][142]
1168 S[178]0:X[178]AN
1171 [153]"((null))CHIRM":[153]"(STR$)RUCKER"
1174 [141]1285:E[178]1:[139]A$[178]"D"[167]E[178]2
1177 [153]""
1180 [139]E[178]2[167][153]"LOAD-(null)VAL(null)(null)(null)(null)- ATNBSCHLIESEN":[160]4:[159]4,4
1183 [129]K[178]1[164]X:J[178]K
1186 [129]I[178]0[164]QW
1189 [152]4,A$(I,0)": "A$(I,A%(J))
1192 [130]
1195 [139]E[178]1[167][141]1285
1198 [139]A$[178][199](13)[167]I[178]QW:K[178]X:J[178]K:[142]
1201 [139]E[178]1[167][153]"ONONON":[141]1411
1204 [139]E[178]2[175][194](197)[178]15[167]I[178]QW:K[178]X:J[178]K:[160]4:[159]4,3:[142]
1207 [139]E[178]2[167][152]4:[152]4
1210 [130]
1213 [160]4:[159]4,3
1216 [142]
1219 J[178]AN[170]1
1222 [153]"ON(null)OSTEN LADEN"
1225 [153]"ASCILE (null)AME: ";:[132]7,F$:[153]
1228 [141]1351:[139]NO[178]1[167]NO[178]0:[142]
1231 [141]1396:[139]B[178]1[167]1237
1234 [159]1,8,2,F$[170]",S,R":[132]1,K:AN[178]AN[170]K:[137]1240
1237 [159]1,1,0,F$:[132]1,K:AN[178]AN[170]K
1240 [139]AN[177]MX[167][141]1360:[142]
1243 [129]K[178]J[164]AN:[139]A%(K)[178]0[167]A%(K)[178]K
1246 [129]I[178]0[164]QW
1249 [132]1,A$(I,A%(K)):[130]:[130]:[160]1:[142]
1252 [153]"ON(null)OSTEN SPEICHERN"
1255 [139]AN[177]0[137]1261
1258 [141]1327:[142]
1261 [153]"ASCILE (null)AME: ";:[132]7,F$:[153]
1264 [141]1351:[139]NO[178]1[167]NO[178]0:[142]
1267 [141]1396:[139]B[178]1[167]1273
1270 [159]1,8,3,"@:"[170]F$[170]",S,W":[152]1,AN:[137]1276
1273 [159]1,1,1,F$:[152]1,[196](AN)[199](13);
1276 [129]K[178]1[164]AN:[129]I[178]0[164]QW
1279 [152]1,A$(I,A%(K))[199](13);:[130]:[130]:[160]1:[142]
1282 [139]A$[179][177]"J"[167][142]
1285 [161]A$:[139]A$[178]""[137]1285
1288 [142]
1291 [153]"ONONON":[129]I[178]0[164]QW:[153]A$(I,0)": ";A$(I,A%(J)):[130]
1294 [153]"-(null)ORREKT (MID$/(null))-                        "
1297 [141]1285:[153]"ON               CLOSEONON"
1300 [139]A$[179][177]"J"[175]A$[179][177]"N"[167][153]"ON":[137]1294
1303 [142]
1306 OK[178][171]1:[129]J[178]1[164]AN
1309 [139][200](A$(0,A%(J)),[195](A$))[178]A$[137]1324
1312 [130]:OK[178]1
1315 [139]RU[179][177]5[167][153]""A$" VALXISTIERT (null)ICHT!           ":[137]1324
1318 [153]""A$" VALXISTIERT (null)ICHT!ON":[129]J[178]1[164]2000:[130]
1321 [153]"                  ONONONON"
1324 [142]
1327 [153]"-STR$ATN(null)ATN FEHLT-"
1330 [129]K[178]1[164]2000:[130]:[153]"ON                                    ONONONONONON":[142]
1333 OK[178][171]1:[139]RU[178]2[167][129]K[178]1[164]AN:[137]1342
1336 [139]J[178]1[176]I[177]0[167][142]
1339 [129]K[178]1[164]J[171]1
1342 [139]A$(0,A%(K))[179][177]A$[167][130]:[142]
1345 [139]K[178]J[167]K[178]K[170]1:[137]1342
1348 OK[178]1:[153]""A$" VALXISTIERT SCHON!":[137]1330
1351 [153]"ATNLLES (null)K!"
1354 [141]1294:[139]A$[178]"N"[167]NO[178]1
1357 [142]
1360 [153]"(null)AXIMUM"MX[170]1"(null)OSTEN":[137]1330
1363 [153]"VALNTER "A$(0,0);
1366 [153]"> ";:[132]7,A$:[153]""
1369 [139]A$[178]"SCHLUSS"[176]A$[178]"S"[167]X0[178]1:[142]
1372 [137]1306
1375 [153]"":[129]I[178]0[164]QW
1378 [153]A$(I,0)"> ";:[132]7,A$:[153]
1381 [139]A$[178]"SCHLUSS"[176]A$[178]"S"[167]X0[178]1:[142]
1384 [141]1333:[139][168]OK[137]1378
1387 A$(I,A%(J))[178]A$:[130]:[142]
1390 ME[178]256[172]([194](52)[171][194](50))[170][194](51)[171][194](49)
1393 W[178]ME[170]635:[142]
1396 [153]"(STR$)ISKETTE ODER ((null))APE"
1399 [153]"STR$CMD";:[132]7,A$:[153]
1402 [139]A$[178]"T"[167]B[178]1:[137]1408
1405 B[178]0
1408 [142]
1411 [153]"                                       "
1414 [153]"                                       "
1417 [153]"                                       "
1420 [153]"                                       ONONONON"
1423 [142]